unit Komp_Unit4;

interface

uses
  System.SysUtils, System.Classes, Vcl.ImgList, Vcl.Controls, Vcl.ExtCtrls,
  Vcl.Dialogs;

type
  TDataModuleVCL = class(TDataModule)
    ImageList1: TImageList;
    Timer1: TTimer;
    FontDialog1: TFontDialog;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModuleVCL: TDataModuleVCL;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

uses Komp_Unit2, Komp_Unit1;

{$R *.dfm}

procedure TDataModuleVCL.Timer1Timer(Sender: TObject);
begin
  if Timer1.Tag = 60 then
  begin
    Timer1.Tag := 0;
    DataModule1.ADOConnection1.Execute('SHOW STATUS');
  end;

Form1.PanelTIME.Caption := FormatDateTime('d.mm.yy - hh:nn:ss', Now());
Timer1.Tag := Timer1.Tag + 1;
end;

end.
